home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / OS2 / XCO212P.ZIP / SAMPLES / SIMPLE / hisdemo.mod < prev    next >
Encoding:
Text File  |  1996-03-01  |  217 b   |  18 lines
  1. <*+ GENHISTORY *>
  2. MODULE hisdemo;
  3.  
  4. PROCEDURE Div(a,b: INTEGER): INTEGER;
  5. BEGIN
  6.   RETURN a DIV b
  7. END Div;
  8.  
  9. PROCEDURE Try;
  10.   VAR res: INTEGER;
  11. BEGIN
  12.   res:=Div(1,0);
  13. END Try;
  14.  
  15. BEGIN
  16.   Try;
  17. END hisdemo.
  18.